home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / ctoolbox.frm < prev    next >
Text File  |  1995-05-22  |  10KB  |  316 lines
  1. VERSION 2.00
  2. Begin Form frmToolBox 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Tool Box Demo"
  5.    ClientHeight    =   4650
  6.    ClientLeft      =   1485
  7.    ClientTop       =   1590
  8.    ClientWidth     =   5535
  9.    Height          =   5055
  10.    Left            =   1425
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4650
  13.    ScaleWidth      =   5535
  14.    Top             =   1245
  15.    Width           =   5655
  16.    Begin CUAToolTips tip1 
  17.       BackColor       =   &H0080FFFF&
  18.       Caption         =   "tip1"
  19.       FontBold        =   0   'False
  20.       FontItalic      =   0   'False
  21.       FontName        =   "MS Sans Serif"
  22.       FontSize        =   8.25
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       Height          =   255
  26.       Left            =   4245
  27.       TabIndex        =   1
  28.       Top             =   630
  29.       Width           =   975
  30.    End
  31.    Begin CUACommand cmdOK 
  32.       Cancel          =   -1  'True
  33.       Caption         =   "OK"
  34.       Default         =   -1  'True
  35.       Height          =   345
  36.       Left            =   4080
  37.       StandardButton  =   1  'OK
  38.       TabIndex        =   0
  39.       Top             =   180
  40.       Width           =   1260
  41.    End
  42.    Begin CUAToolBox ToolBox 
  43.       BackColor       =   &H00C0C0C0&
  44.       Height          =   4440
  45.       Left            =   105
  46.       ListCount       =   20
  47.       Top             =   105
  48.       Width           =   915
  49.    End
  50.    Begin CUALabel lbl 
  51.       Caption         =   "Each button has it's own picture. Look at the ""Load"" event of this window to see how each button gets it's own image. "
  52.       FontBold        =   0   'False
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS Sans Serif"
  55.       FontSize        =   8.25
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       ForeColor       =   &H00000080&
  59.       Height          =   630
  60.       Index           =   3
  61.       Left            =   1140
  62.       TabIndex        =   5
  63.       Top             =   3300
  64.       Width           =   3075
  65.    End
  66.    Begin CUALabel lbl 
  67.       Caption         =   "Each button usually represents some kind of ""tool"", and only one may be selected at a time."
  68.       FontBold        =   0   'False
  69.       FontItalic      =   0   'False
  70.       FontName        =   "MS Sans Serif"
  71.       FontSize        =   8.25
  72.       FontStrikethru  =   0   'False
  73.       FontUnderline   =   0   'False
  74.       ForeColor       =   &H00000080&
  75.       Height          =   615
  76.       Index           =   2
  77.       Left            =   1140
  78.       TabIndex        =   4
  79.       Top             =   885
  80.       Width           =   3075
  81.    End
  82.    Begin CUALabel lbl 
  83.       Caption         =   "It can also be docked to the left, or top of the surrounding window. Move the tool box a little outside the window to see it work."
  84.       FontBold        =   0   'False
  85.       FontItalic      =   0   'False
  86.       FontName        =   "MS Sans Serif"
  87.       FontSize        =   8.25
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       ForeColor       =   &H00000080&
  91.       Height          =   855
  92.       Index           =   1
  93.       Left            =   1140
  94.       TabIndex        =   3
  95.       Top             =   2385
  96.       Width           =   3075
  97.    End
  98.    Begin CUALabel lbl 
  99.       Caption         =   "CUAToolBox resizes automatically to show all it's buttons. Move the tool box to see how it works."
  100.       FontBold        =   0   'False
  101.       FontItalic      =   0   'False
  102.       FontName        =   "MS Sans Serif"
  103.       FontSize        =   8.25
  104.       FontStrikethru  =   0   'False
  105.       FontUnderline   =   0   'False
  106.       ForeColor       =   &H00000080&
  107.       Height          =   690
  108.       Index           =   0
  109.       Left            =   1140
  110.       TabIndex        =   2
  111.       Top             =   1680
  112.       Width           =   3150
  113.    End
  114.    Begin Line Line1 
  115.       BorderWidth     =   2
  116.       X1              =   1155
  117.       X2              =   4170
  118.       Y1              =   1575
  119.       Y2              =   1575
  120.    End
  121.    Begin Image Image1 
  122.       Height          =   330
  123.       Index           =   19
  124.       Left            =   4740
  125.       Picture         =   CTOOLBOX.FRX:0000
  126.       Top             =   4530
  127.       Visible         =   0   'False
  128.       Width           =   330
  129.    End
  130.    Begin Image Image1 
  131.       Height          =   330
  132.       Index           =   18
  133.       Left            =   4350
  134.       Picture         =   CTOOLBOX.FRX:0182
  135.       Top             =   4530
  136.       Visible         =   0   'False
  137.       Width           =   330
  138.    End
  139.    Begin Image Image1 
  140.       Height          =   330
  141.       Index           =   17
  142.       Left            =   4740
  143.       Picture         =   CTOOLBOX.FRX:0304
  144.       Top             =   4110
  145.       Visible         =   0   'False
  146.       Width           =   330
  147.    End
  148.    Begin Image Image1 
  149.       Height          =   330
  150.       Index           =   16
  151.       Left            =   4350
  152.       Picture         =   CTOOLBOX.FRX:0486
  153.       Top             =   4110
  154.       Visible         =   0   'False
  155.       Width           =   330
  156.    End
  157.    Begin Image Image1 
  158.       Height          =   330
  159.       Index           =   15
  160.       Left            =   4740
  161.       Picture         =   CTOOLBOX.FRX:0608
  162.       Top             =   3705
  163.       Visible         =   0   'False
  164.       Width           =   330
  165.    End
  166.    Begin Image Image1 
  167.       Height          =   330
  168.       Index           =   14
  169.       Left            =   4350
  170.       Picture         =   CTOOLBOX.FRX:078A
  171.       Top             =   3705
  172.       Visible         =   0   'False
  173.       Width           =   330
  174.    End
  175.    Begin Image Image1 
  176.       Height          =   330
  177.       Index           =   13
  178.       Left            =   4740
  179.       Picture         =   CTOOLBOX.FRX:090C
  180.       Top             =   3300
  181.       Visible         =   0   'False
  182.       Width           =   330
  183.    End
  184.    Begin Image Image1 
  185.       Height          =   330
  186.       Index           =   12
  187.       Left            =   4350
  188.       Picture         =   CTOOLBOX.FRX:0A8E
  189.       Top             =   3300
  190.       Visible         =   0   'False
  191.       Width           =   330
  192.    End
  193.    Begin Image Image1 
  194.       Height          =   330
  195.       Index           =   11
  196.       Left            =   4740
  197.       Picture         =   CTOOLBOX.FRX:0C10
  198.       Top             =   2910
  199.       Visible         =   0   'False
  200.       Width           =   330
  201.    End
  202.    Begin Image Image1 
  203.       Height          =   330
  204.       Index           =   10
  205.       Left            =   4350
  206.       Picture         =   CTOOLBOX.FRX:0D92
  207.       Top             =   2910
  208.       Visible         =   0   'False
  209.       Width           =   330
  210.    End
  211.    Begin Image Image1 
  212.       Height          =   330
  213.       Index           =   9
  214.       Left            =   4740
  215.       Picture         =   CTOOLBOX.FRX:0F14
  216.       Top             =   2520
  217.       Visible         =   0   'False
  218.       Width           =   330
  219.    End
  220.    Begin Image Image1 
  221.       Height          =   330
  222.       Index           =   8
  223.       Left            =   4350
  224.       Picture         =   CTOOLBOX.FRX:1096
  225.       Top             =   2520
  226.       Visible         =   0   'False
  227.       Width           =   330
  228.    End
  229.    Begin Image Image1 
  230.       Height          =   330
  231.       Index           =   7
  232.       Left            =   4740
  233.       Picture         =   CTOOLBOX.FRX:1218
  234.       Top             =   2130
  235.       Visible         =   0   'False
  236.       Width           =   330
  237.    End
  238.    Begin Image Image1 
  239.       Height          =   330
  240.       Index           =   6
  241.       Left            =   4350
  242.       Picture         =   CTOOLBOX.FRX:139A
  243.       Top             =   2130
  244.       Visible         =   0   'False
  245.       Width           =   330
  246.    End
  247.    Begin Image Image1 
  248.       Height          =   330
  249.       Index           =   5
  250.       Left            =   4740
  251.       Picture         =   CTOOLBOX.FRX:151C
  252.       Top             =   1740
  253.       Visible         =   0   'False
  254.       Width           =   330
  255.    End
  256.    Begin Image Image1 
  257.       Height          =   330
  258.       Index           =   4
  259.       Left            =   4350
  260.       Picture         =   CTOOLBOX.FRX:169E
  261.       Top             =   1740
  262.       Visible         =   0   'False
  263.       Width           =   330
  264.    End
  265.    Begin Image Image1 
  266.       Height          =   330
  267.       Index           =   3
  268.       Left            =   4740
  269.       Picture         =   CTOOLBOX.FRX:1820
  270.       Top             =   1350
  271.       Visible         =   0   'False
  272.       Width           =   330
  273.    End
  274.    Begin Image Image1 
  275.       Height          =   330
  276.       Index           =   2
  277.       Left            =   4350
  278.       Picture         =   CTOOLBOX.FRX:19A2
  279.       Top             =   1350
  280.       Visible         =   0   'False
  281.       Width           =   330
  282.    End
  283.    Begin Image Image1 
  284.       Height          =   330
  285.       Index           =   1
  286.       Left            =   4740
  287.       Picture         =   CTOOLBOX.FRX:1B24
  288.       Top             =   975
  289.       Visible         =   0   'False
  290.       Width           =   330
  291.    End
  292.    Begin Image Image1 
  293.       Height          =   330
  294.       Index           =   0
  295.       Left            =   4350
  296.       Picture         =   CTOOLBOX.FRX:1CA6
  297.       Top             =   975
  298.       Visible         =   0   'False
  299.       Width           =   330
  300.    End
  301. End
  302. Option Explicit
  303.  
  304. Sub cmdOK_Click ()
  305.    Unload Me
  306. End Sub
  307.  
  308. Sub Form_Load ()
  309.    Dim I%
  310.  
  311.    For I = 0 To 19
  312.       ToolBox.ListPicture(I) = Image1(I)
  313.    Next
  314. End Sub
  315.  
  316.